home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue69 / construc / DBALIAS.DPR
Encoding:
Text File  |  2001-04-02  |  1.0 KB  |  41 lines
  1. {$APPTYPE CONSOLE}
  2. program dbAlias;
  3. uses
  4.   Classes, SysUtils, DB, DBTables, Provider, DBClient;
  5. var
  6.   i: Integer;
  7.   TableNames: TStringList;
  8.   Table: TTable;
  9.   DataSetProvider: TDataSetProvider;
  10.   ClientDataSet: TClientDataSet;
  11. begin
  12.   TableNames := TStringList.Create;
  13.   with TSession.Create(nil) do
  14.   try
  15.     AutoSessionName := True;
  16.     GetTableNames(ParamStr(1), '', True, False, TableNames);
  17.   finally
  18.     Free
  19.   end {TSession};
  20.   Table := TTable.Create(nil);
  21.   DataSetProvider := TDataSetProvider.Create(nil);
  22.   ClientDataSet := TClientDataSet.Create(nil);
  23.   try
  24.     Table.DatabaseName := ParamStr(1);
  25.     for i:=0 to Pred(TableNames.Count) do
  26.     begin
  27.       writeln(Table.TableName);
  28.       Table.TableName := TableNames[i];
  29.       Table.Open;
  30.       DataSetProvider.DataSet := Table;
  31.       ClientDataSet.SetProvider(DataSetProvider);
  32.       ClientDataSet.Open;
  33.       ClientDataSet.SaveToFile(ChangeFileExt(Table.TableName,'.xml'));
  34.       ClientDataSet.Close;
  35.       Table.Close
  36.     end
  37.   finally
  38.     Table.Free
  39.   end
  40. end.
  41.